Softdisk for Windows 42/Softdisk for Windows 42.iso/QUARRY/QUARRY.EXE/QUARRY.dxr/00031_CHANGEREDROLL.ls

Text File | 1998-01-01 | 412 b | 21 lines

on CHANGEREDROLL
  global REDROLL
  set REDROLL to REDROLL + 1
  if REDROLL >= 5 then
    set REDROLL to 1
  end if
  if REDROLL = 1 then
    set the castNum of sprite 29 to 5
  end if
  if REDROLL = 2 then
    set the castNum of sprite 29 to 6
  end if
  if REDROLL = 3 then
    set the castNum of sprite 29 to 7
  end if
  if REDROLL = 4 then
    set the castNum of sprite 29 to 4
  end if
  updateStage()
end